program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  Square = class
    c, b, a: real;
    procedure Solve;
  end;
var
  s: Square;
procedure Square.Solve;
var
  d, x1, x2: real;
begin
  d:=b*b-4*a*c;
  if (a<>0) then
  begin
    if (d>0) then
    begin
      x1:=(-b+sqrt(d))/2*a;
      x2:=(-b-sqrt(d))/2*a;
      writeln(x1:0:2,' ',x2:0:2);
    end;
    if (d=0) then
    begin
       x1:=(-b+sqrt(d))/2*a;
       writeln(x1:0:2);
    end;
    if (d<0) then
      writeln('There arent any answers');
  end else
  begin
    if (b<>0) then
    begin
      x1:=(-c)/b;
      writeln(x1:0:2);
    end else
    begin
      if (c=0) then
        writeln ('All numbers');
      if (c<>0) then
        writeln ('There arent any answers');
    end;
  end;
end;
begin
  writeln('Enter a, b, c, please.');
  s:=Square.Create;
  readln(s.a,s.b,s.c);
  s.Solve;
  readln;
end.
 